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* 
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Insert a 13-sector FORTH-79 dictionary disk in disk drive 1] 
and boot up in the uSual manner. Do NOT try to boot up on the 
enhancements disk, as it does not have a dictionary on it. 


After boot up, you should see the following hello message 
displayed on your screen: 


FORTH-79 DOUBLE NUMBER VER 2.0 
MICROMOTION 12077 WILSHIRE #506 
L-Ae, CA. 90025 213-821-4340 
COPYRIGHT 198] 


If you do not see this display, you should try _ rebooting. If 
you are using Apple DOS 3.3, don't forget to BRUN BOOT13 or boot 
BASICS first. If you still do not see this display, make new 
13-sector disk with a dictionary on it from your grandfather 
disk (see appendix A). 


Now remove the dictionary disk and insert the enhancement 

disk in drive l. 
Ll. LOADING FLOATING POINT SCREENS 

The enhancement disk contains the source screens’ for 
floating point arithmetic on screens 10 thru 46. To load these 
screens, type: 

10 46 THRU 

You will see several dots displayed as the screens loads. When 
the OK prompt returns, remove the enhancement disk and place the 


13-sector dictionary disk in drive 1. Now type: 


SAVE 


LOADING FLOATING POINT SCREENS 
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If you want the floating point dictionary SAVEd on a 16-sector 
Gdisk, you will need to load the 13-sector and 16-sector 
conversion utilities (see appendix A.2 for details). Don't 
forget to type EMPTY-BUFFERS when changing disks. Now turn to 
chapter 2 and continue. 


2- LOADING HIRES TURTLEGRAPHICS 
The enhancement disk also contains the source screens for 
HIRES Turtlegraphics. These are on screens 60 thru 96. To load 
these screens, follow the same procedure as you did for floating 
point except you type: 
60 96 THRU 


Now turn to chapter 3 and continue. 
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MicroMotion's FORTH-79 floating point system allows you to 
input, compute with, and print real numbers in a variety of 
formats. 


lL. SIMPLE F FUNCTIONS 
Remember how division works with integers? The line 
10 3 /MOD.. 
produces 


Be 
meaning a quotient of 3 and a remainder of l. 


If you want to specify the decimal place and get a more 
exact answer, the process is slightly more complicated. First, 
enter each number as a double number by adding a dot (see 
chapter 7, More about Numbers, for a fuller description of 
double numbers and their structure). Second, convert’ each 
number to floating point format by adding the word FLOAT. Your 
Original calculation now looks like this: 


10. FLOAT 3. FLOAT 


Arithmetic operators in floating point are preceded by an F , as 
in F+ , F- , F* , and F/ . So is the first print command ( F. ) 
you will learn. Now finish your division problem with these new 
commands : 


10. FLOAT 3. FLOAT F/ F. 3.33 OK 


Wonderful! But how did FORTH decide to express’ the 
quotient in two decimal places? The default set on F. always 
expresses the number this way. If you want to see more (or 
fewer) places, you will need a new command. Remember the word 
eR from chapter 2? It made possible columnar formats’ and 
allowed you to specify the total width of the column. With the 
floating point version of this word ( F.R ), you can specify the 
number of places. 


The word F.R requires two arguments besides the number to 


be printed: the number of decimal places and the total width of 
the column. Let's say you want to see the quotient expressed to 
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the fifth decimal place and that you want ten characters’ total 
(just in case). Your command would look like this: 


10. FLOAT 3. FLOAT F/ 5 10 F.R 3.33333 OK 


You will often need to input (as well as print) numbers 
that are not integers. What would happen if you tried that 
now? 


321415 3.1415 ? UNKNOWN 


You must alert FORTH that a noninteger is about to be input and 
remind it that the number must be put on the stack exactly as 
is. To do this, precede the number with the word REAL. This 
command will automatically convert the number into floating 
point at the same time. 


Now try your number again and print it with a floating 
point print command: 


REAL 3.1415 F. 3.14 OK 


Of course, with an F. command, you get only two decimal places. 
Use the F.R command to get your original number back: 


REAL 3.1415 5 6 F.R 3.14149 OK 


Whoops--that's not the same number. What happened? In the 
transition from the decimal number that you typed in to the 
binary system of the CPU and back again, some numbers don't 
arrive in exactly the same form. In most cases, however, they 
are very close to the originals. This small factor of error 
should be considered in your computations, even So. 


The command F. is convenient to use when numbers are not 
too large or too small. When you deal with very large integers 
Or very small fractions, however, FORTH makes available _ the 
command Ee which will print numbers in scientific 
(exponential) notation. 

Try the same number with E. : 

REAL 3.1415 E. 3.14149* 00 OK 
The number after the exponent mark ( ~ ) indicates the power of 
the current base (ten), which can be positive or negative. The 
default on E. is set to give you six decimal places. Now move 
the decimal: 

REAL 31415 E. 3.14149 04 OK 
And try a very small number: 

REAL .0003 E. 3.00000°-04 OK 


Like F. , E.'s default can be altered (using E.R) to give 
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more or fewer decimal places. Try this out: 
REAL 31415 4 10 E.R 3.1414* 04 OK 


Note that FORTH does not round the last digit; it simply drojun 
it. 


If you have no real preferences for the way a onumbe 
appears but simply want the form that is easiest to read, let 
FORTH decide for you with the command G. , which is set to print 
eight characters (not including the characters needed to 
indicate the power to the current base). Try G. on a few 
numbers: 


REAL 31415 G. 31415.00 OK 
REAL .0003 G. 3.00000°-04 OK 


Note: It is quite possible to combine F functions ( F+ , F* , 
etc) with E. or G. print commands. 


2- MORE F FUNCTIONS 


The word FNEGATE will change the sign of a floating point 
number. Try this out: 


REAL 1.25 FNEGATE G. -1.25 OK 


Likewise, the word FABS will give you the absolute value of a 
floating point number: 


REAL -1.25 FABS G. 1.25 OK 
REAL 1.25 FABS G 1.25 OK 


You can also compare floating point numbers with the word 
B<: ~ 


REAL 1.25 REAL 3.75 F< . 1 OK 


Note that you do not need the print commands F. , E. , or G. for 
this task because your answer will be either a single-number 1 
or a 0, depending on the truth of the comparison. Note also 
that functions which compare for equality and greater magnitude 
can eaSily be defined with the word F< . 


You may enter numbers’ in scientific notation as well as 
print them out. Note the different results obtainable by using 
different print commands: 


REAL 1°6 F. 1000000.00 OK 
REAL 1°6 E. 1.00000* 06 OK 


It is also possible to compute exponential products and 
take square roots with floating point notation. The word SQRT 
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finds the square root of a floating point number: 
REAL 25 SQRT G. 5.00 OK 


The word F** will take the first floating point number to the 
power of the second (note how the print command chooses’ to 
express the results in these two examples): 


REAL 2 REAL 8 F** G, 256.00 OK 
REAL 2 REAL 36 F** G, 6.87194 10 OK 


Knowing these commands, you can devise a word (let's call 
it PYTHAG, for the Pythagorean theorem) which will take two 
numbers (the lengths of two sides adjacent to the right angle of 
a right triangle), square each, add the results, and take the 
Square root of the answer to get the length of the third side. 
(Note that because floating point numbers occupy exactly the 
Same number of bytes as double numbers, all double-number 
defining words {ie, 2CONSTANT and 2VARIABLE} and_ stack 
manipulation commands apply.) 


: PYTHAG 
2DUP F* 2SWAP 2DUP F* F+ SQRT ; 


Try this word out: 


REAL 3 REAL 4 PYTHAG F. 5.00 OK 
REAL 2 REAL 3 PYTHAG F. 3.60 OK 


3. THERE AND BACK AGAIN: SINGLE-NUMBER <--> FLOATING POINT 


Within a program, it will often happen that you need to 
convert a value from single-number to floating point. There is 
no way to intercept the value and preface it with a REAL command 
before it appears on the stack. In this case, you should 
combine double-number commands with floating point commands, so 
as to go from single to double, and from double to floating 
point. Follow this simple example (check chapter 7 for a 
discussion of S->D and its opposite, DROP): 


5 S->D FLOAT G. 5.00 OK 
To go the other direction, you need the new word FIXED, which 
converts the number from floating point to double-number 
format. Again, combine commands: 


REAL 3.1415 FIXED DROP . 3 OK 
4. FINDING ERRORS 


A handy variable, FSTAT , will help you find and identify 
the type of errors you might have made in floating point 


FINDING ERRORS 
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Calculations. First, set FSTAT to 0 when you begin: 
O FSTAT ! OK 


Then, just before you use a print command to see the result of a 
computation, check FSTAT's value (by means of ? ). A non-zere 
value means that an error has occurred. 


If, for example, you tried to divide a number by 0 (an 
obvious impossibility), FORTH would humor you by providing the 
largest number it has available: 


REAL 100 REAL 0 F/ G. 9.22337" 18 OK 


An error would nonetheless have been made. Furthermore, since 
any of the print commands we have been uSing for floating point 
(F. , E. , G. , F.R, and E.R ) automatically reset FSTAT to 0 
whenever they are executed, if you forget to check FSTAT and 
execute a print command, the record of the error will be lost. 
The proper format would be as follows: 


0 FSTAT ! REAL 100 REAL 0 F/ FSTAT ? 18 OK 


2- TRIG AND LOG FUNCTIONS 


The FORTH trigonometric functions SIN (sine), COS (cosine), 
and TAN (tangent) each replace a floating point argument, in 
radians, with the value of the respective function: 


REAL 1.57 SIN F. 0.99 OK 


The function ARCTAN (arctangent) is the inverse function of 
TAN: 


REAL 1 TAN E. 1.55740~ 00 OK 
REAL 1.557402 ARCTAN E. 9.99998°-01 OK 


The function LN returns the natural logarithm of an 
argument: 


REAL 2 LN E. 6.93147°-01 OK 


The exponentiation operator, EXP , returns the natural constant 
e (2.718282) raised to the power of the argument. EXP is the 
inverse of LN: 


REAL .6931471 EXP E. 2.00000° 00 OK 


The trigonometric logarithmic functions are used to 
implement many other functions. A comprehensive trigonometric 
set is provided, 24 functions in all, including SECANT, 
COSECANT, and COTAN, as well as the hyperbolic and inverse 
hyperbolic functions (see glossary). 


TRIG AND LOG FUNCTIONS 
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6. GLOSSARY NOTATION 


This glossary uses the notation described in appendix C of 


the MicroMotion FORTE-79 Tutorial and Reference Manual with 
following addition: 


f {+-(2.7°-20 to 9.2718) and 0} 


32-bit floating point number. The mantissa 


the 


is a 


24-bit fractional value. The exponent is an_ unbiased 
two's complement 7-bit value. The most significant 
bit is the sign of the mantissa, with zero indicating 
a positive value and one indicating a negative value. 


The binary point is to the left of the of the 


most 


Significant mantissa bit. All floating point values 


are normalized so that the most significant bit of 


the 


mantissa is always one, except for the value zero, 


which is represented by all zeros. 


Note: This is the floating point number format used by 
the Advanced Micro Devices Am951l1 and Intel 8231 


Arithmetic Processing Unit. 


Ll. FLOATING POINT ARITHMETIC WORD SET 


ARCCOS fl --- £2 


Leaves the floating point arccosine of fl in radians. 
angle returned is in the range 0 through pi. 


ARCCOSH fl --- £2 


The 


Leaves the floating point inverse hyperbolic cosine of fl. 


ARCCOT fl --- £2 


Leaves the floating point arccotangent of fl in radians. 


The angle returned is in the range 0 through pi. 


ARCCOTH fl ~--- £2 
Leaves the floating point inverse hyperbolic cotangent 
fl. 

ARCCSC fl --- £2 


Leaves the floating point arccosecant of fl in radians. 
angle returned is in the range 0 through pi/2 for x>=l 
-pi through -pi/2 for x<=-l. 

ARCCSCH fl --- f2 


Leaves the floating point inverse hyperbolic cosecant 
£1. 
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ARCSEC fl --- f2 
Leaves the floating point arcseeant of fl in radiana. The 
angle returned is in the range 0 through pi/2 for x>=!) and 
-pi through -pi/2 for x<=-l. 

ARCSECH fl --- f2 
Leaves the floating point inverse hyperbolic secant of fl. 


ARCSIN fl --- f2 


Leaves the floating point arcsine of fl in radians. The 
angle returned is in the range -pi/2 through +pi/2. 


ARCSINH fl --- f2 
Leaves the floating point inverse hyperbolic sine of fl. 
ARCTAN fl --- f2 


Leaves the floating point arctangent of fl in radians. The 
angle returned is in the range -pi/2 through +pi/2. 


ARCTANH fl --- £2 
Leaves the floating point inverse hyperbolic tangent of fl. 
CSC fl --- £2 


Leaves the floating point cosecant of fl radians in the 
domain of -pi/2 through pi/2. 


CSCH fl --- £2 
Leaves the floating point hyperbolic cosecant of fl. 
Cos fl --- £2 


Leaves the floating point cosine of fl radians in the 
domain of 0 through pi. 


COSH fl --- £2 
Leaves the floating point hyperbolic cosine of fl. 
COT fl --- £2 


Leaves the floating point cotangent of fl radians in the 
domain of -pi/2 through pi/2. 


COTH fl --- £2 


Leaves the floating point hyperbolic cotangent of fl. 
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DEG->RAD fl, === £2 


Convert fl degrees to f2 radians. 


EXP fl --- £2 
Raise e (2.718282) to the fl power. 

E. f --- 
Displays f converted according to BASE in scientific 
(exponential) notation with one trailing blank. 
Displays f converted according to BASE in scientific 
(exponential) notation in a n2-character field with nl 
digits after the point. 

ESTRS f nl --- 
Convert f£ to a string according to BASE in scientific 
(exponential) notation in a nl-character field with nl 
digits after the point. 

F. f oa 
Displays f converted according to BASE with two digits 
after the point and one trailing blank. 
Displays f converted according to BASE in a n2-character 
field with nl digits after the point. 

FSTRS$ f nl --- 
Converts f£ to a string according to BASE with nl digits 
after the point. 

F+ fl £2 --- £3 
Leaves the floating point sum of fl plus f2. 

F- fl f2 --- £3 
Subtracts £2 from fl and leaves the floating point 
difference f3. 

F* fl £2 --- £3 
Multiplies fl by £2 and leaves the floating point product 

Pex fl £2 --- £3 


Takes fl to the power f2 and leaves the result f3. 
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F/ fl £2 --- £3 
Divides fl from f2 and leaves the floating point quottent 
F< fl £2 --- flag 


True if f1 is less than f2. 
FABS fl --- f2 

Leaves the absolute value of a floating point number. 
FIXED f --- d 

Converts a floating point number to a double number. 
FLOAT d --- f 


Converts a double number to a floating point number. 


FNEGATE fl --- f2 
Negate the floating point number fl, ie, the difference of 
0 less fl. 

FSGN fl --- f2 


Leaves the sign of floating point number fl. f2 is -1l for 
£1<0, 0 for f1=0, and 1 for £150. 


FSTAT --- addr 


Leaves the address of a variable containing the current 
floating point error condition. The error status indicates 
the logical ORing of the errors that have occurred. 
Following are the hexadecimal values for the error 


conditions: 
02 = Underflow 
04 = Overflow 
08 = Square root of a negative number 
10 = Divide by zero 
FVAL str ~--~ f 
Converts a string to floating point number f according to 
BASE. 
G. f —ae 


Displays f converted according to BASE with two digits 
after the point and one trailing blank. 


LN fl --- £2 


Leaves the floating point natural logarithm of fl. 
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RAD->DEG fl --- £2 


REAL 


SEC 


SECH 


SIN 


SINH 


SORT 


TAN 


TANH 


Converts fl radians to f2 degrees. 


--- f (executing) 
-—= (compiling) 


If executing, converts to the equivalent stack floating 
point number, with regard to BASE, the following text from 
the input stream. If compiling, compiles a floating point 
literal. The text format is: 

siii.fff"see 


where s is the sign, iii are the integer digits, fff are 
the fractional digits, and ee is the exponent of BASE. 


Fl === £2 


Leaves the floating point secant of f1 radians in the 
domain of 0 through pi. 


fl --- £2 
Leaves the floating point hyperbolic secant of fl. 
fl --- f2 


Leaves the floating point sine of fl radians in the domain 
of -pi/2 through pi/2. 


fl --- £2 

Leaves the floating point hyperbolic sine of fl. 
fl --- f2 

Leaves the floating point square root of fl. 
fl --- f2 


Leaves the floating point tangent of fl radians in the 
domain of -pi/2 through pi/2. 


fl --- £2 


Leaves the floating point hyperbolic tangent of fl. 
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The following sections cover the commands which form the 
MicroMotion FORTH-79 version 2.0 HIRES turtlegraphics word 
set. They assume that the reader has already read the 


FORTH-79 Tutorial and Reference Manual. 


1. THE FIRST STEP 
HGR ( --- ) 


This word sets the high-resolution graphics mode. You must 
use HGR before beginning to draw, either in immediate or 
delayed execution; otherwise your subsequent graphics 
commands will affect memory unpredictably and you may have 
to reboot FORTH. 


An HGR command sets up a mixed graphics/text screen, with 
four lines of text at the bottom (see MIXED and FULL 
below). The X axis is at the bottom of the screen, within 
the text area; the Y axis is at the extreme left; point 
(0,0) is at the extreme lower left. Horizontal plotting 
points are numbered from 0 to 279, vertical from 0 to 191. 
In mixed mode, the lowest Y value you will be able to see 
is 32 because of the text area at the bottom. Similarly, 
any text above row 20 will be hidden by the graphics area. 
Before issuing an HGR command, therefore, you should ' check 
to see that your cursor is set on one of the bottom four 
lines of the screen; a 20 CV command will do this. 


HGR also sets the initial drawing color to white on a black 
background. If you have already been drawing, HGR clears 
the graphics area. 

TX ( --~ ) 


This word returns you to normal text mode. 


2- WINDOWS 
MIXED ( --- ) 


This word gives you graphics with four lines of text at the 
bottom of the screen. HGR sets MIXED mode when executed. 


WINDOWS 
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FULL ( --- ) 


This word opens up the whole screen for drawing. FULL is 
used mostly within colon definitions, since any commands 
you type after FULL is executed would be hidden behind the 
graphics screen. You can recover text mode by typing MIXED 
Or TX. You will not be able to see the drawing again if you 
use TX. 


BACKGROUND ( --- ) 


This word fills the entire graphics area (whether MIXED or 
FULL) with the last-named color. 


VIEWPORT ( LEFT RIGHT BOTTOM TOP --- ) 


This word allows you to restrict the area within which 
drawing is possible. The command 


0 50 141 191 VIEWPORT 


gives you a small square window at the upper left corner of 
the screen. The effect will not be visible until you start 
trying to plot points--only those inside the window will 
show up. HGR sets the viewport to the full screen. size 
(ie, 0 279 0 191 VIEWPORT). 


FILLPORT ( --- ) 
This is a quick way to draw a block of solid color. Having 
first defined the boundaries of your VIEWPORT as above, the 


FILLPORT command will fill only this area, using the color 
you named last. 


3. SIMPLE DRAWING 

HPLOT ( X Y --- ) 
This word plots a point at the X and Y coordinates on the 
stack (Y is on top). To plot a point in the middle of the 
screen (point 140,96), type 

HGR 140 96 HPLOT 

If you specify points outside the viewport, a dot will not 
be plotted and you will do no damage; but you may run _ into 
problems later (see LINETO below). 

HPOSN ( X Y --- ) 
This is a non-plotting version of HPLOT; it gives you a new 
Starting point for further drawing but makes no mark on the 
screen. 

LINETO ( X Y --- ) 


You can connect the last point plotted to another point 
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with this word. For example, suppose you have positioned 
yourself at (140,96) with 140 96 HPLOT or 140 96 HIPOSN. 
You may now draw a vertical line to (140,156) with 


140 156 LINETO 
You are now repositioned at (140,156). 


Warning: If your last position is off the HIRES screen and 
you try to draw a line to a position on the screen, LINETO 
may draw the line incorrectly. For a way to get around 
this, see MOVETO below. 


MOVETO ( X Y --— ) 


MOVETO functions the same as LINETO, except that it "clips" 
(does not plot) any part of the line which falls outside 
the HIRES plotting area. You should use MOVETO whenever 
the figure you're drawing cannot fit entirely on the HIRES 
screen. You should use the faster LINETO if you’ can 
guarantee that your drawing will remain within the HIRES 
screen at all times. 


RECTANGLE ( Xl Yl X2 Y2 --- ) 


This word gives you a shortcut in drawing rectangles by 
allowing you to specify the coordinates of only two 
corners. These corners must be diagonal to each other. The 
following words all perform the same function: 


: BOX] 
HGR 100 100 HPLOT 150 100 MOVETO 
150 60 MOVETO 100 60 MOVETO 100 100 MOVETO ; 


: BOX2 HGR 100 100 150 60 RECTANGLE ; 


BOX3 HGR 100 60 150 100 RECTANGLE ; 


CIRCLE ( R X Y --— ) 


Another quick plotting device, CIRCLE takes a radius and 
the X and Y coordinates off the stack. The command 


30 140 96 CIRCLE 


gives you a circle of radius 30 at the center of the screen 
(point 140,96). (Depending on the characteristics of your 
particular monitor, circles may show up as ellipses.) 


SCREENBIT ( X Y --- FLAG ) 


In some situations it is useful to determine whether 
anything has been plotted at a particular point. SCREENBIT 
leaves a true (non-zero) condition on the stack if point 
(X,Y) has been plotted and a false (zero) condition if 
not. 
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4. ADDING COLOR 


The colors available to you are BLACK, WHITE, GREEN, 
ORANGE, VIOLET, and BLUE. To set the color, simply name 
the color before plotting. The command 


BLACK 30 140 96 CIRCLE 
erases the circle you made above and the command 
30 140 96 VIOLET CIRCLE 


redraws it in violet. HGR sets the default color to WHITE 
when first called. 


There may be a problem with drawing white or black lines 
across colored fields. This is because color televisions 
and monitors create white by juxtaposing colored dots. 
Plotting simple white oor black lines across a_ colored 
background can lead to unsatisfactory and unpredictable 
results; in some cases your plotting will not be visible at 
all. For this reason, FORTH provides two extra blacks’ and 
whites which draw double-thick lines. WHITE1 and BLACK] are 
used against green or violet backgrounds; WHITE2 and BLACK2 
against orange Or blue. (To help remember’ these 
relationships, you could use the mnemonic that the pair 
"green" and “violet" both end in consonants, "orange" and 
"blue" in vowels; and "green and one" and "blue and_ two" 
are at least approximate rhymes.) 


Sometimes you may want to draw figures over complex colored 
backgrounds and have them show up in contrasting colors for 
visibility. You could draw in each portion, using BLUE over 
an ORANGE background, GREEN over VIOLET, WHITE2 over 
BLACK2, and so on. If you specify REVERSE as your color, 
any drawing you do will be automatically switched to the 
color complementary to the background until you name 
another color. If you decide to erase your REVERSE drawing 
somewhere down the line, so to speak, simply name REVERSE, 
draw the figure again, and your background will be 
restored. 


NONE is an “invisible color"--it allows you to move to 
another location without affecting the background at all. 
This is useful in turtlegraphics (see section 5.) 


Sometimes it is useful to asSign numbers to colors. You can 
do this with the word GODO: 


: COLOR# ( N --- ) 
GODO WHITE GREEN BLUE ORANGE VIOLET BLACK THEN ; 


Inserting COLOR# into a DO loop could now lead to some very 
pretty results. 
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2- TURTLEGRAPHICS 


Turtlegraphics make it possible to draw some figures more 
easily or quickly than by using the commands you have 
learned thus far. Imagine the HIRES cursor (the point of 
the “pencil" with which you have been drawing) as a turtle 
with ink on its tail. It can do only one of three things at 
a time: turn in place; walk ahead with its tail down, 
trailing a line behind it; or walk ahead with its tail up, 
changing position but not drawing. The words in this 
section control these functions. 


You can place your turtle on the screen using the words 
HPOSN or HPLOT, which you learned in section 2 above. 


TURNTO ( ANGLE --- ) 


The direction the turtle faces can be changed with TURNTO. 
The angle specified must be absolute; 0 degrees is to the 
right, 90 degrees is up, 180 degrees is left, and 270 
degrees is down. HGR initially sets your angle to 0. 


TURN ( DELTA-ANGLE ---— ) 


This is a relative version of TURNTO. Positive values move 
the direction counterclockwise. If your turtle happens’ to 
be facing up, and you want it to be facing left, any of the 
following commands will do the trick: 


90 TURN 
450 TURN 
-270 TURN 
180 TURNTO 


ANG ( --- ADDR ) 


The words TURNTO and TURN act on the variable ANG. On 
occasion, however, you will want to change the value of ANG 
directly. For instance, suppose you are animating a figure 
on the screen with repeated uses of TURN. Eventually the 
value of ANG will exceed FORTH's limit of 32767, and_ then 
strange things will begin to happen. To prevent this, you 
can insert a "housecleaning" instruction into your program, 
something that takes a form such as: 


ANG @ 360 MOD ANG ! 
HMOVE ( N --- ) 


So far you have only been turning the turtle; here's a word 
to make it walk. HMOVE takes a number off the stack and 
plots a line of that length in the current direction and 
color. If you have specified the color NONE, the HIRES 
cursor is moved but no line is plotted; this corresponds to 
your turtle moving straight ahead with its tail up. 
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MOVEREL ( DELTA-X-FRAC DELTA-X-INT DELTA-Y-FRAC 


XORG 
YORG 


DELTA-Y-INT --- ) 


This more complex version of HMOVE requires you to specify 
your move in rectangular coordinates relative to your 
present position. It takes double-number arguments, with 
the fractional part first. MOVEREL is mostly used in 
conjunction with other FORTH words like RECT (see below). 


( --- ADDR ) 
( --- ADDR ) 


SETORG ( X Y --- ) 


ORG+ 


( DELTA-X-FRACTION DELTA-X-INTEGER 
DELTA-Y-FRACTION DELTA-Y-INTEGER --- N ) 


RECT ( N --- DELTA-X-FRACTION DELTA-X-INTEGER 


DELTA-Y-FRACTION DELTA-Y-INTEGER ) 


Suppose you wish to draw a star. You would probably 
approach this by choosing a point and using a DO...LOOP to 
perform the angle changes and draw the five necessary 
lines. 


: STAR] 
HGR 100 100 HPOSN ( SETS THE STARTING POINT ) 
36 TURNTO 5 0 ( SETS ANGLE SO FIRST LINE ... ) 
( ... PLOTTED WILL BE HORIZONTAL ... 
( eee 36 + 144 = 180 ) 
DO 144 TURN 20 HMOVE 
LOOP ; 


Apart from calculating the angles involved, this is a 
fairly easy job. But what if you wanted to center the star 
on a particular point? This involves a lot of extra 
computation. Fortunately, MicroMotion FORTH provides a 
small set of words that allow you to draw complex shapes 
using the center as a reference point. You begin by 
specifying your center with SETORG. Say you wish to put 
your star at point (100,100). You can do this with 


100 100 SETORG 


Nothing is plotted, but now point (100,100) is the origin 
to which the subsequent moves in this example will refer. 
It is important to note that SETORG does not place the 
HIRES cursor on the screen; you must use HPOSN or HPLOT to 
do this. 


Now you will set the point at which plotting will begin. 
Using these new commands, do this by specifying, not a pair 
of coordinates as before, but an angle and a distance from 
the center. The next section is as follows: 


90 TURNTO 11 RECT ORG+ HPOSN 


Start by specifying an upward direction and a distance (11) 
from the center. (Note that you are not uSing a magnitude 
of 20 as you did in STAR1: the 20 was the entire diameter 
of the star, almost twice the distance of a point to the 


TURTLEGRAPHICS 


HIRES TURTLEGRAPHICS 19 


center. So to keep your stars approximately the same ize, 
use 1] here.) RECT's action is to take the distance of{ the 
otack, plus the angle from the variable to which it wan 
assigned earlier by TURNTO, and to use them to calculate 
the change in X and Y. It leaves two double numbers on the 
stack--an integral and a fractional component for both 
delta-X and delta-Y. (It is important for FORTH to retain 
the fractions; otherwise a large cumulative error’. can 
result.) Luckily you don't have to deal with this result 
directly--ORG+ does that for you. ORG+ takes the two double 
numbers and gives the coordinates of the new point, which 
you will use as the starting point for STAR2. (Note that 
ORG+ does not change the value of XORG and YORG, which are 
still at the center of the screen where you first set 
them.) So ORG+ passes the new coordinates to HPOSN, and you 
are now ready to loop. The final section looks like this: 


5 0 DO 144 TURN 11 RECT ORG+ LINETO LOOP 


The "144 TURN" changes the angle as above; "ll RECT ORG+" 
gives a new point for the star based on the previously set 
angle and the quantity on the stack. The completed 
definition, then, is 


: STAR2 
HGR 100 100 SETORG 
90 TURNTO 11 RECT ORG+ HPOSN 5 0 
DO 144 TURN 11 RECT ORG+ LINETO 
LOOP ; 


Care to draw a slow circle around your star? 


: CIRCLE 
360 0 

DO 1 TURN 11 RECT ORG+ LINETO 
LOOP ; 


Note that the center was already specified in STAR2 and 
that there is no need to give a starting angle. 


COS* ( UNSIGNED-INTEGER ANGLE --- N-FRACTION N-INTEGER ) 
SIN* ( UNSIGNED-INTEGER ANGLE --- N-FRACTION N-INTEGER ) 


COS* acts as a sort of inverse of the combination RECT 
ORG*: it takes an angle, and a distance along that angle, 
and gives the X-component of the vector you. specified. 
Similarly, SIN* gives the Y-component. In other words, 
these two commands allow you to input the hypotenuse of a 
right triangle and obtain the length of the two short 
sides. The result of a COS* or a SIN* command is a double 
number, with the integral part on top of the stack and the 
decimal fraction underneath. 
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6. THE DEMONSTRATION PROGRAMS 


Now that you've come to the end of this tutorial, you're 
probably ready for some entertainment. We have included a 
few graphics demonstration programs involving some 
relatively simple uses of the words you've learned above. 
We hope that once you're tried them you'll be moved to 
figure out how they work, to alter them, improve them, and 
s00n surpass them. Their names are 


CHART 
USFLAG 
FLOWER 
LOTABULL 
BULLSEYE 
MOREBULL 
WAVE] 
WAVE2 
WAVE3 
DRUNK 
SPOKES 
STARBURST 
POLYGONS 
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